home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ WMP 5.xpl < prev    next >
Text File  |  2001-11-29  |  2KB  |  54 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="1"
  3. "COUNT"="4"
  4. "UIPATH 1"="Program Options\Built in Windows Apps\Windows Media Player"
  5. "UIPATH 2"="Internet\Windows Media Player"
  6. "NAME"="MP3 Encoding"
  7. "LANGUAGE"="VBScript"
  8. "VERSION"="1.24"
  9. "TEXT 1"="Low Rate:"
  10. "TEXT 2"="Medium Rate:"
  11. "TEXT 3"="MediumHigh Rate:"
  12. "TEXT 4"="High Rate:"
  13. "DESCRIPTION 1"="Windows Media Player 8.x is able to encode MP3 Audio files, but the functionality sometimes isn't enabled by default. However, using this plug-in, you can enable it."
  14. "DESCRIPTION 2"="In each field, type in the bitrate (in kbps) you want to use for each level. For example, you might want to set the low rate to 128 and the high rate to 320. You can use any of these numbers: 32, 40, 48, 56, 64, 80, 96, 112, 128, 160, 192, 224, 256 or 320. 128 is the-most widely used, and 192 offers near-CD quality. 320 makes a recording almost identical to the CD."
  15. "DESCRIPTION 3"="You can then enable MP3 encoding using the Options dialog in Windows Media Player.
  16. "AUTHOR"="Xteq Systems (Neil R. Turner)"
  17. "CONTACTURL"="http://www.xteq.com/"
  18. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  19. "COMMENT 1"="Thanks to Pierre Szwarc for the registry keys."
  20.  
  21. sP="HKLM\Software\Microsoft\MediaPlayer\Settings\MP3Encoding\"
  22. sV1="LowRate"
  23. sV2="MediumRate"
  24. sV3="MediumHighRate"
  25. sV4="HighRate"
  26.  
  27. Sub Plugin_Initialize 
  28.  Call BuildUI(1,sV1)
  29.  Call BuildUI(2,sV2)
  30.  Call BuildUI(3,sV3)
  31.  Call BuildUI(4,sV4)
  32. End Sub
  33.  
  34. Sub BuildUI(n,v)
  35.  s=RegReadValue(sP&v)
  36.  t=s/1000
  37.  Call SetUIElement(n,t)
  38. End Sub
  39.  
  40. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  41.  Call BuildReg(1,sV1)
  42.  Call BuildReg(2,sV2)
  43.  Call BuildReg(3,sv3)
  44.  Call BuildReg(4,sV4)
  45. End Sub
  46.  
  47. Sub BuildReg(n,v)
  48.  s=GetUIElement(n)
  49.  t=s*1000
  50.  Call RegWriteValue(sP&v,t,2)
  51. End Sub
  52.  
  53. Sub Plugin_Terminate 
  54. End Sub